object dmConexao: TdmConexao
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Height = 296
  Width = 380
  object dbConexao: TUniConnection
    ProviderName = 'SQLite'
    Database = 
      'C:\Users\Wesley\Documents\RAD Studio\Projects\open-presentation-' +
      'control\bin\OpenPC.db'
    SpecificOptions.Strings = (
      'SQLite.Direct=True'
      'SQLite.ForceCreateDatabase=True')
    DefaultTransaction.DefaultConnection = dbConexao
    Connected = True
    AfterConnect = dbConexaoAfterConnect
    Left = 76
    Top = 52
  end
  object SQLiteUniProvider1: TSQLiteUniProvider
    Left = 104
    Top = 52
  end
  object sqlEstruturaInicial: TUniScript
    SQL.Strings = (
      'CREATE TABLE IF NOT EXISTS "PARAMETROS" ('
      '  "CHAVE" TEXT NOT NULL, '
      '  "VALOR" TEXT, '
      '  CONSTRAINT "" PRIMARY KEY ("CHAVE"));'
      ''
      ''
      'CREATE TABLE IF NOT EXISTS "HINARIO" ('
      '  "ID" INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT, '
      '  "NUMERO" NUMBER NOT NULL, '
      '  "TITULO" TEXT NOT NULL, '
      '  "LETRA" TEXT NOT NULL);')
    Connection = dbConexao
    Left = 132
    Top = 52
  end
  object qrParametros: TUniQuery
    SQLInsert.Strings = (
      'INSERT INTO PARAMETROS'
      '  (CHAVE, VALOR)'
      'VALUES'
      '  (:CHAVE, :VALOR)')
    SQLDelete.Strings = (
      'DELETE FROM PARAMETROS'
      'WHERE'
      '  CHAVE = :Old_CHAVE')
    SQLUpdate.Strings = (
      'UPDATE PARAMETROS'
      'SET'
      '  CHAVE = :CHAVE, VALOR = :VALOR'
      'WHERE'
      '  CHAVE = :Old_CHAVE')
    SQLRefresh.Strings = (
      'SELECT CHAVE, VALOR FROM PARAMETROS'
      'WHERE'
      '  CHAVE = :CHAVE')
    Connection = dbConexao
    SQL.Strings = (
      'SELECT * FROM PARAMETROS ORDER BY CHAVE')
    Left = 76
    Top = 112
    object qrParametrosCHAVE: TMemoField
      FieldName = 'CHAVE'
      BlobType = ftMemo
    end
    object qrParametrosVALOR: TMemoField
      FieldName = 'VALOR'
      BlobType = ftMemo
    end
  end
end
